home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / amicad / arexx / visunetlist.amicad < prev    next >
Text File  |  1999-12-06  |  616b  |  25 lines
  1. /* Ce fichier vous donne un exemple de structure possible
  2. pour un fichier de macros appelé par AmiCAD, par le menu Macros */
  3.  
  4. options results     /* indispensable pour récupérer le résultat des macros */
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'REQFILE("Netlist à visualiser?", "Travail:AmiCAD/Spice", "*.cir")'
  10. f=result
  11. if f='' then exit
  12.  
  13. call edit.rexx(f)
  14. exit
  15.  
  16. /* Traitement des erreurs, interruption du programme */
  17. syntax:
  18. erreur=RC
  19. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  20. exit
  21.  
  22. error:
  23. 'MESSAGE("Erreur en ligne 'SIGL'")'
  24. exit
  25.